home *** CD-ROM | disk | FTP | other *** search
/ Network CD 2 / Network CD - Volume 2.iso / programs / internet / tcp / amitcp / amitcp-src-22.lha / AmiTCP-2.2 / src / appl / napsaterm / national.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-11-18  |  3.1 KB  |  139 lines
  1. /* $Id: national.c,v 1.5 1993/11/19 02:11:10 ppessi Exp $
  2.  * 
  3.  * national.c --- handle national fonts and keyboard layouts
  4.  *
  5.  * Author: ppessi <Pekka.Pessi@hut.fi>
  6.  *
  7.  * Copyright (c) 1993 Pekka Pessi
  8.  *
  9.  * Created      : Mon Mar 29 06:32:31 1993 ppessi
  10.  * Last modified: Fri Nov 19 04:08:36 1993 ppessi
  11.  *
  12.  */
  13.  
  14. #include <string.h>
  15. #include <ctype.h>
  16.  
  17. #include "nifty.h"
  18. #include "amiga.h"
  19. #include "national.h"
  20.  
  21. #define CHARSETSIZE 256
  22.  
  23. struct KeyMap *myKeyMap = NULL;
  24.  
  25. unsigned char national_table[CHARSETSIZE];
  26. unsigned char national_kmap[CHARSETSIZE];
  27.  
  28. struct nation nations[MAX_NATIONS] = 
  29. { 
  30.   { "ASCII", "usa1", NULL, NULL },
  31.   { "Danish", "dk", NULL, 
  32.       /* Danish I [Æ]Å\Ø{æ}å|ø */  
  33.       "[\306]\305\\\330{\346}\345|\370" }, 
  34.   { "Finnish", "s", NULL, 
  35.       /* [Ä]Å\Ö{ä}å|ö */  
  36.       "[\304]\305\\\326{\344}\345|\366" }, 
  37.   { "French", "f", NULL, 
  38.       /* @à[°\ç]§{é|ù}è~¨ */  
  39.       "@\340[\227\\\337]\305{\351|\371}\350~\250" }, 
  40.   { "German", "d", NULL,
  41.       /* @§[Ä]Ü\Ö{ä}ü|ö~ß */
  42.       "@\247[\304]\334\\\326{\344}\374|\366~\337" },
  43.   { "Norwegian", "n", NULL, 
  44.       /* $¤@É[Æ]Å\Ø^Ü`é{æ}å|ø~ü */
  45.       "$\244@\311[\306]\305\\\330^\334`\351{\346}\345|\370~\374" },
  46.   { "Swedish", "s", NULL, 
  47.       /* $¤@É[Ä]Å\Ö^Ü`é{ä}å|ö~ü */
  48.       "$\244@\311[\304]\305\\\326^\334`\351{\344}\345|\366~\374" },
  49.   { "UK", "gb", NULL,
  50.       /* british #£*/ 
  51.       "#\243" }
  52. }; /* ASCII */
  53.  
  54. struct nation *used_nation = NULL;
  55. short no_nation = 7;
  56.  
  57. unsigned char *kmap_template =
  58. "\000\001\002\003\004\005\006\007"
  59. "\010\011\012\013\014\015\016\017"
  60. "\020\021\022\023\024\025\026\027"
  61. "\030\031\032\033\034\035\036\037"
  62. " !c#$Y|#@ca\"--r-o+23'uP.,1o\"   ?"
  63. "AAAAAAACEEEEIIIIDNOOOOO*OUUUUYTs"
  64. "aaaaaaaceeeeiiiidnooooo/ouuuuyty";
  65.  
  66. /*
  67.  * initialize current mapping
  68.  */
  69. void
  70. init_national(unsigned int n)
  71. {
  72.   int i;
  73.   const unsigned char *patch;
  74.  
  75.   if (n >= no_nation)
  76.     return;
  77.  
  78.   if (used_nation == nations + n)
  79.     return;
  80.  
  81.   used_nation = nations + n;
  82.  
  83.   for (i = 0; i < CHARSETSIZE; i++) {
  84.     national_kmap[i] = national_table[i] = i;
  85.   }
  86.  
  87.   /* Set the keymap */
  88.   if (used_nation->n_kmap) 
  89.     myKeyMap = used_nation->n_kmap;
  90.   else if (used_nation->n_kmapname)
  91.     myKeyMap = used_nation->n_kmap = FindKeyMap(used_nation->n_kmapname);
  92.  
  93.   /* patch send & receive tables */
  94.   memcpy(national_kmap + 128, kmap_template, 128);
  95.   for (patch = used_nation->n_patches; patch && *patch; patch += 2) {
  96.     national_kmap[patch[1]] = patch[0];
  97.     national_table[patch[0]] = patch[1];
  98.   }
  99. }
  100.  
  101. /*
  102.  * Set the nation by name 
  103.  */
  104. void
  105. setnationbyname(char *name)
  106. {
  107.   int i = no_nation - 1;
  108.   while(i >= 0) { 
  109.     if (!Stricmp(nations[i].n_name, name)) {
  110.       init_national(i);
  111.       return;
  112.     }
  113.     i--;
  114.   }
  115.   if (i < 0)
  116.     puts("National code not found");
  117. }
  118.  
  119. /*
  120.  * Parse national resources
  121.  */
  122. void
  123. natinit(void)
  124. {
  125.   char *temp;
  126.  
  127.   if ((temp = getprofile(PROGNAME ".nation")) != NULL) {
  128.     setnationbyname(temp);
  129.   } else {
  130.     init_national(0);
  131.   }
  132.  
  133.  if ((temp = getprofile(PROGNAME ".keymap")) != NULL ||
  134.      (temp = getprofile(PROGNAME ".keyboard")) != NULL) {
  135.     used_nation->n_kmapname = temp;
  136.     used_nation->n_kmap = myKeyMap = FindKeyMap(temp);
  137.   }
  138. }
  139.